﻿
Partial Class _Default
    Inherits System.Web.UI.Page

    Private TempUser As Pic.Users
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            KullaniciyiGetir()
            ResYukle()
        End If
    End Sub
    Private Sub KullaniciyiGetir()
        TempUser = Pic.Users.GetUserByEmail("otopcu@gmail.com")
        With TempUser
            lblEmail.Text = .Email
            lblAdi.Text = .Name
            lblSoyadi.Text = .Surname
            lblPhoto.Text = .Photo
            lblCreated.Text = .Created
            lblModified.Text = .Modified
        End With

    End Sub
    Private Sub ResYukle()
        CType(Pic1.FindControl("imgObject"), Image).ImageUrl = "~/Pics/Fotoğraf361.jpg"
        CType(Pic2.FindControl("imgObject"), Image).ImageUrl = "~/Pics/Fotoğraf593.jpg"
        CType(Pic3.FindControl("imgObject"), Image).ImageUrl = "~/Pics/Fotoğraf620.jpg"
        CType(Pic4.FindControl("imgObject"), Image).ImageUrl = "~/Pics/Fotoğraf667.jpg"

    End Sub

    Protected Sub LnkUser_Click(sender As Object, e As System.EventArgs) Handles LnkUser.Click
        Response.Redirect("adminpanel/User.aspx")
    End Sub
End Class
